MacAddict 115/macaddict115.cdr/Software/Development/REALbasicMacOSX.dmg/REALbasic 2005 Release 4/REALbasic 2005.app/Contents/Resources/powerpointclasses

Text File | 2005-07-15 | 79KB | 2,270 lines

Class PowerPointCollection
inherits OLEObject
    dim Count as integer
    dim _NewEnum as OLEObject
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointApplication
inherits OLEObject
    dim Active as integer
    dim ActivePresentation as PowerPointPresentation
    dim ActivePrinter as string
    dim ActiveWindow as PowerPointDocumentWindow
    dim AddIns as PowerPointAddIns
    dim AnswerWizard as OLEObject
    dim Assistant as OLEObject
    dim Build as string
    dim Caption as string
    dim COMAddIns as OLEObject
    dim CommandBars as variant
    dim Creator as integer
    dim DefaultWebOptions as PowerPointDefaultWebOptions
    dim Dialogs as PowerPointPPDialogs
    dim FeatureInstall as integer
    dim FileFind as OLEObject
    dim FileSearch as OLEObject
    dim Height as single
    dim HWND as integer
    dim LanguageSettings as OLEObject
    dim Left as single
    dim Marker as PowerPointMarker
    dim MsoDebugOptions as OLEObject
    dim Name as string
    dim OperatingSystem as string
    dim Path as string
    dim Presentations as PowerPointPresentations
    dim ProductCode as string
    dim ShowWindowsInTaskbar as integer
    dim SlideShowWindows as PowerPointSlideShowWindows
    dim Top as single
    dim VBE as VBE
    dim Version as string
    dim Visible as integer
    dim Width as single
    dim Windows as PowerPointDocumentWindows
    dim WindowState as integer
    Sub Activate()
    Function FileDialog(Type_Param as integer) as PowerPointFileDialog
    Function GetOptionFlag(Option_Param as integer, Persist_Param as boolean) as boolean
    Sub Help(HelpFile_Param as string, ContextID_Param as integer)
    Sub LaunchSpelling(pWindow_Param as PowerPointDocumentWindow)
    Sub Quit()
    Function Run(MacroName_Param as string, safeArrayOfParams_Param as variant) as variant
    Sub SetOptionFlag(Option_Param as integer, State_Param as boolean, Persist_Param as boolean)
    Event EventTriggered(eventName As String, parameters() As Variant)
    Event NewPresentation(pres As PowerPointPresentation)
    Event PresentationClose(pres As PowerPointPresentation)
    Event PresentationNewSlide(pres As PowerPointPresentation)
    Event PresentationOpen(pres As PowerPointPresentation)
    Event PresentationPrint(pres As PowerPointPresentation)
    Event PresentationSave(pres As PowerPointPresentation)
    Event SlideShowBegin(win As PowerPointSlideShowWindow)
    Event SlideShowEnd(pres As PowerPointPresentation)
    Event SlideShowNextBuild(win As PowerPointSlideShowWindow)
    Event SlideShowNextSlide(win As PowerPointSlideShowWindow)
    Event WindowActivate(pres As PowerPointPresentation, win As PowerPointDocumentWindow)
    Event WindowBeforeDoubleClick(sel As PowerPointSelection, byref cancel As Boolean)
    Event WindowBeforeRightClick(sel As PowerPointSelection, byref cancel As Boolean)
    Event WindowDeactivate(pres As PowerPointPresentation, win As PowerPointDocumentWindow)
    Event WindowSelectionChange(sel As PowerPointSelection)
    EventImp EventTriggered(eventName As String, parameters() As Variant) As Variant
        Select Case eventName
        Case "NewPresentation"
          NewPresentation( parameters(1) )
        Case "PresentationClose"
          PresentationClose( parameters(1) )
        Case "PresentationNewSlide"
          PresentationNewSlide( parameters(1) )
        Case "PresentationOpen"
          PresentationOpen( parameters(1) )
        Case "PresentationPrint"
          PresentationPrint( parameters(1) )
        Case "PresentationSave"
          PresentationSave( parameters(1) )
        Case "SlideShowBegin"
          SlideShowBegin( parameters(1) )
        Case "SlideShowEnd"
          SlideShowEnd( parameters(1) )
        Case "SlideShowNextBuild"
          SlideShowNextBuild( parameters(1) )
        Case "SlideShowNextSlide"
          SlideShowNextSlide( parameters(1) )
        Case "WindowActivate"
          WindowActivate( parameters(1), parameters(2) )
        Case "WindowBeforeDoubleClick"
          Dim cancel As Boolean = parameters(2)
          WindowBeforeDoubleClick( parameters(1), cancel )
          parameters(2) = cancel
        Case "WindowBeforeRightClick"
          Dim cancel As Boolean = parameters(2)
          WindowBeforeRightClick( parameters(1), cancel )
          parameters(2) = cancel
        Case "WindowDeactivate"
          WindowDeactivate( parameters(1), parameters(2) )
        Case "WindowSelectionChange"
          WindowSelectionChange( parameters(1) )
        Else
          EventTriggered( eventName, parameters )
        End Select
    End EventImp
End Class

Class PowerPointGlobal
inherits OLEObject
    dim ActivePresentation as PowerPointPresentation
    dim ActiveWindow as PowerPointDocumentWindow
    dim AddIns as PowerPointAddIns
    dim AnswerWizard as OLEObject
    dim Application as PowerPointApplication
    dim Assistant as OLEObject
    dim CommandBars as variant
    dim Dialogs as PowerPointPPDialogs
    dim Presentations as PowerPointPresentations
    dim SlideShowWindows as PowerPointSlideShowWindows
    dim Windows as PowerPointDocumentWindows
End Class

Class PowerPointColorFormat
inherits OLEObject
    dim Application as OLEObject
    dim Creator as integer
    dim Parent as OLEObject
    dim RGB as integer
    dim SchemeColor as integer
    dim Type as integer
End Class

Class PowerPointSlideShowWindow
inherits OLEObject
    dim Active as integer
    dim Application as PowerPointApplication
    dim Height as single
    dim HWND as integer
    dim IsFullScreen as integer
    dim Left as single
    dim Parent as OLEObject
    dim Presentation as PowerPointPresentation
    dim Top as single
    dim View as PowerPointSlideShowView
    dim Width as single
    Sub Activate()
End Class

Class PowerPointSelection
inherits OLEObject
    dim Application as PowerPointApplication
    dim Parent as OLEObject
    dim ShapeRange as PowerPointShapeRange
    dim SlideRange as PowerPointSlideRange
    dim TextRange as PowerPointTextRange
    dim Type as integer
    Sub Copy()
    Sub Cut()
    Sub Delete()
    Sub Unselect()
End Class

Class PowerPointDocumentWindows
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Sub Arrange(arrangeStyle_Param as integer)
    Function Item(index_Param as integer) as PowerPointDocumentWindow
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointSlideShowWindows
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(index_Param as integer) as PowerPointSlideShowWindow
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointDocumentWindow
inherits OLEObject
    dim Active as integer
    dim ActivePane as PowerPointPane
    dim Application as PowerPointApplication
    dim BlackAndWhite as integer
    dim Caption as string
    dim Height as single
    dim HWND as integer
    dim Left as single
    dim Panes as PowerPointPanes
    dim Parent as OLEObject
    dim Presentation as PowerPointPresentation
    dim Selection as PowerPointSelection
    dim SplitHorizontal as integer
    dim SplitVertical as integer
    dim Top as single
    dim View as PowerPointView
    dim ViewType as integer
    dim Width as single
    dim WindowState as integer
    Sub Activate()
    Sub Close()
    Sub FitToPage()
    Sub LargeScroll(Down_Param as integer, Up_Param as integer, ToRight_Param as integer, ToLeft_Param as integer)
    Function NewWindow() as PowerPointDocumentWindow
    Function PointsToScreenPixelsX(Points_Param as single) as integer
    Function PointsToScreenPixelsY(Points_Param as single) as integer
    Function RangeFromPoint(X_Param as integer, Y_Param as integer) as OLEObject
    Sub ScrollIntoView(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single, Start_Param as integer)
    Sub SmallScroll(Down_Param as integer, Up_Param as integer, ToRight_Param as integer, ToLeft_Param as integer)
End Class

Class PowerPointView
inherits OLEObject
    dim Application as PowerPointApplication
    dim DisplaySlideMiniature as integer
    dim Parent as OLEObject
    dim Slide as OLEObject
    dim Type as integer
    dim Zoom as integer
    dim ZoomToFit as integer
    Sub GotoSlide(index_Param as integer)
    Sub Paste()
End Class

Class PowerPointSlideShowView
inherits OLEObject
    dim AcceleratorsEnabled as integer
    dim AdvanceMode as integer
    dim Application as PowerPointApplication
    dim CurrentShowPosition as integer
    dim IsNamedShow as integer
    dim LastSlideViewed as PowerPointSlide
    dim Parent as OLEObject
    dim PointerColor as PowerPointColorFormat
    dim PointerType as integer
    dim PresentationElapsedTime as single
    dim Slide as PowerPointSlide
    dim SlideElapsedTime as single
    dim SlideShowName as string
    dim State as integer
    dim Zoom as integer
    Sub DrawLine(BeginX_Param as single, BeginY_Param as single, EndX_Param as single, EndY_Param as single)
    Sub EndNamedShow()
    Sub EraseDrawing()
    Sub Exit_()
    Sub First()
    Sub GotoNamedShow(SlideShowName_Param as string)
    Sub GotoSlide(index_Param as integer, ResetSlide_Param as integer)
    Sub InstallTracker(pTracker_Param as PowerPointMouseTracker, Presenter_Param as integer)
    Sub Last()
    Sub Next_()
    Sub Previous()
    Sub ResetSlideTime()
End Class

Class PowerPointSlideShowSettings
inherits OLEObject
    dim AdvanceMode as integer
    dim Application as PowerPointApplication
    dim EndingSlide as integer
    dim LoopUntilStopped as integer
    dim NamedSlideShows as PowerPointNamedSlideShows
    dim Parent as OLEObject
    dim PointerColor as PowerPointColorFormat
    dim RangeType as integer
    dim ShowType as integer
    dim ShowWithAnimation as integer
    dim ShowWithNarration as integer
    dim SlideShowName as string
    dim StartingSlide as integer
    Function Run() as PowerPointSlideShowWindow
End Class

Class PowerPointNamedSlideShows
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string, safeArrayOfSlideIDs_Param as variant) as PowerPointNamedSlideShow
    Function Item(index_Param as variant) as PowerPointNamedSlideShow
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointNamedSlideShow
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Name as string
    dim Parent as OLEObject
    dim SlideIDs as variant
    Sub Delete()
End Class

Class PowerPointPrintOptions
inherits OLEObject
    dim ActivePrinter as string
    dim Application as PowerPointApplication
    dim Collate as integer
    dim FitToPage as integer
    dim FrameSlides as integer
    dim HandoutOrder as integer
    dim NumberOfCopies as integer
    dim OutputType as integer
    dim Parent as OLEObject
    dim PrintColorType as integer
    dim PrintFontsAsGraphics as integer
    dim PrintHiddenSlides as integer
    dim PrintInBackground as integer
    dim Ranges as PowerPointPrintRanges
    dim RangeType as integer
    dim SlideShowName as string
End Class

Class PowerPointPrintRanges
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Start_Param as integer, End_Param as integer) as PowerPointPrintRange
    Sub ClearAll()
    Function Item(index_Param as integer) as PowerPointPrintRange
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointPrintRange
inherits OLEObject
    dim Application as PowerPointApplication
    dim End_ as integer
    dim Parent as OLEObject
    dim Start as integer
    Sub Delete()
End Class

Class PowerPointAddIns
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(FileName_Param as string) as PowerPointAddIn
    Function Item(index_Param as variant) as PowerPointAddIn
    Sub Remove(index_Param as variant)
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointAddIn
inherits OLEObject
    dim Application as PowerPointApplication
    dim AutoLoad as integer
    dim DisplayAlerts as integer
    dim FullName as string
    dim Loaded as integer
    dim Name as string
    dim Parent as OLEObject
    dim Path as string
    dim Registered as integer
    dim RegisteredInHKLM as integer
End Class

Class PowerPointPresentations
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(WithWindow_Param as integer) as PowerPointPresentation
    Function Item(index_Param as variant) as PowerPointPresentation
    Function Open(FileName_Param as string, ReadOnly_Param as integer, Untitled_Param as integer, WithWindow_Param as integer) as PowerPointPresentation
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointPresentation
inherits OLEObject
    dim Application as PowerPointApplication
    dim BuiltInDocumentProperties as OLEObject
    dim ColorSchemes as PowerPointColorSchemes
    dim CommandBars as variant
    dim Container as OLEObject
    dim CustomDocumentProperties as OLEObject
    dim DefaultLanguageID as integer
    dim DefaultShape as PowerPointShape
    dim DisplayComments as integer
    dim EnvelopeVisible as integer
    dim ExtraColors as PowerPointExtraColors
    dim FarEastLineBreakLanguage as integer
    dim FarEastLineBreakLevel as integer
    dim Fonts as PowerPointFonts
    dim FullName as string
    dim HandoutMaster as PowerPointMaster
    dim HasTitleMaster as integer
    dim HTMLProject as OLEObject
    dim LayoutDirection as integer
    dim Name as string
    dim NoLineBreakAfter as string
    dim NoLineBreakBefore as string
    dim NotesMaster as PowerPointMaster
    dim PageSetup as PowerPointPageSetup
    dim Parent as OLEObject
    dim Path as string
    dim PrintOptions as PowerPointPrintOptions
    dim PublishObjects as PowerPointPublishObjects
    dim ReadOnly as integer
    dim Saved as integer
    dim SlideMaster as PowerPointMaster
    dim Slides as PowerPointSlides
    dim SlideShowSettings as PowerPointSlideShowSettings
    dim SlideShowWindow as PowerPointSlideShowWindow
    dim Tags as PowerPointTags
    dim TemplateName as string
    dim TitleMaster as PowerPointMaster
    dim VBASigned as integer
    dim VBProject as variant
    dim WebOptions as PowerPointWebOptions
    dim Windows as PowerPointDocumentWindows
    Function AddTitleMaster() as PowerPointMaster
    Sub AddToFavorites()
    Sub ApplyTemplate(FileName_Param as string)
    Sub Close()
    Sub Export(Path_Param as string, FilterName_Param as string, ScaleWidth_Param as integer, ScaleHeight_Param as integer)
    Sub FollowHyperlink(Address_Param as string, SubAddress_Param as string, NewWindow_Param as boolean, AddHistory_Param as boolean, ExtraInfo_Param as string, Method_Param as integer, HeaderInfo_Param as string)
    Sub MakeIntoTemplate(IsDesignTemplate_Param as integer)
    Function NewWindow() as PowerPointDocumentWindow
    Sub PrintOut(From_Param as integer, To_Param as integer, PrintToFile_Param as string, Copies_Param as integer, Collate_Param as integer)
    Sub ReloadAs(cp_Param as integer)
    Sub Save()
    Sub SaveAs(FileName_Param as string, FileFormat_Param as integer, EmbedTrueTypeFonts_Param as integer)
    Sub SaveCopyAs(FileName_Param as string, FileFormat_Param as integer, EmbedTrueTypeFonts_Param as integer)
    Sub sblt(s_Param as string)
    Sub SetUndoText(Text_Param as string)
    Sub Unused()
    Sub UpdateLinks()
    Sub WebPagePreview()
End Class

Class PowerPointHyperlinks
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(index_Param as integer) as PowerPointHyperlink
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointHyperlink
inherits OLEObject
    dim Address as string
    dim Application as PowerPointApplication
    dim EmailSubject as string
    dim Parent as OLEObject
    dim ScreenTip as string
    dim ShowandReturn as integer
    dim SubAddress as string
    dim TextToDisplay as string
    dim Type as integer
    Sub AddToFavorites()
    Sub CreateNewDocument(FileName_Param as string, EditNow_Param as integer, Overwrite_Param as integer)
    Sub Delete()
    Sub Follow()
End Class

Class PowerPointPageSetup
inherits OLEObject
    dim Application as PowerPointApplication
    dim FirstSlideNumber as integer
    dim NotesOrientation as integer
    dim Parent as OLEObject
    dim SlideHeight as single
    dim SlideOrientation as integer
    dim SlideSize as integer
    dim SlideWidth as single
End Class

Class PowerPointFonts
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(index_Param as variant) as PowerPointFont
    Sub Replace(Original_Param as string, Replacement_Param as string)
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointExtraColors
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Sub Add(Type_Param as integer)
    Function Item(index_Param as integer) as integer
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointSlides
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(index_Param as integer, Layout_Param as integer) as PowerPointSlide
    Function FindBySlideID(SlideID_Param as integer) as PowerPointSlide
    Function InsertFromFile(FileName_Param as string, index_Param as integer, SlideStart_Param as integer, SlideEnd_Param as integer) as integer
    Function Item(index_Param as variant) as PowerPointSlide
    Function Paste(index_Param as integer) as PowerPointSlideRange
    Function Range(index_Param as variant) as PowerPointSlideRange
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointSlide
inherits OLEObject
    dim Application as PowerPointApplication
    dim Background as PowerPointShapeRange
    dim ColorScheme as PowerPointColorScheme
    dim DisplayMasterShapes as integer
    dim FollowMasterBackground as integer
    dim HeadersFooters as PowerPointHeadersFooters
    dim Hyperlinks as PowerPointHyperlinks
    dim Layout as integer
    dim Master as PowerPointMaster
    dim Name as string
    dim NotesPage as PowerPointSlideRange
    dim Parent as OLEObject
    dim PrintSteps as integer
    dim Scripts as OLEObject
    dim Shapes as PowerPointShapes
    dim SlideID as integer
    dim SlideIndex as integer
    dim SlideNumber as integer
    dim SlideShowTransition as PowerPointSlideShowTransition
    dim Tags as PowerPointTags
    Sub Copy()
    Sub Cut()
    Sub Delete()
    Function Duplicate() as PowerPointSlideRange
    Sub Export(FileName_Param as string, FilterName_Param as string, ScaleWidth_Param as integer, ScaleHeight_Param as integer)
    Sub Select_()
End Class

Class PowerPointSlideRange
inherits OLEObject
    dim Application as PowerPointApplication
    dim Background as PowerPointShapeRange
    dim ColorScheme as PowerPointColorScheme
    dim Count as integer
    dim DisplayMasterShapes as integer
    dim FollowMasterBackground as integer
    dim HeadersFooters as PowerPointHeadersFooters
    dim Hyperlinks as PowerPointHyperlinks
    dim Layout as integer
    dim Master as PowerPointMaster
    dim Name as string
    dim NotesPage as PowerPointSlideRange
    dim Parent as OLEObject
    dim PrintSteps as integer
    dim Scripts as OLEObject
    dim Shapes as PowerPointShapes
    dim SlideID as integer
    dim SlideIndex as integer
    dim SlideNumber as integer
    dim SlideShowTransition as PowerPointSlideShowTransition
    dim Tags as PowerPointTags
    dim _NewEnum as OLEObject
    Sub Copy()
    Sub Cut()
    Sub Delete()
    Function Duplicate() as PowerPointSlideRange
    Sub Export(FileName_Param as string, FilterName_Param as string, ScaleWidth_Param as integer, ScaleHeight_Param as integer)
    Function Item(index_Param as variant) as PowerPointSlide
    Sub Select_()
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointMaster
inherits OLEObject
    dim Application as PowerPointApplication
    dim Background as PowerPointShapeRange
    dim ColorScheme as PowerPointColorScheme
    dim HeadersFooters as PowerPointHeadersFooters
    dim Height as single
    dim Hyperlinks as PowerPointHyperlinks
    dim Name as string
    dim Parent as OLEObject
    dim Scripts as OLEObject
    dim Shapes as PowerPointShapes
    dim TextStyles as PowerPointTextStyles
    dim Width as single
    Sub Delete()
End Class

Class PowerPointColorSchemes
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Scheme_Param as PowerPointColorScheme) as PowerPointColorScheme
    Function Item(index_Param as integer) as PowerPointColorScheme
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointColorScheme
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Colors(SchemeColor_Param as integer) as PowerPointRGBColor
    Sub Delete()
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointRGBColor
inherits OLEObject
    dim Application as PowerPointApplication
    dim Parent as OLEObject
    dim RGB as integer
End Class

Class PowerPointSlideShowTransition
inherits OLEObject
    dim AdvanceOnClick as integer
    dim AdvanceOnTime as integer
    dim AdvanceTime as single
    dim Application as PowerPointApplication
    dim EntryEffect as integer
    dim Hidden as integer
    dim LoopSoundUntilNext as integer
    dim Parent as OLEObject
    dim SoundEffect as PowerPointSoundEffect
    dim Speed as integer
End Class

Class PowerPointSoundEffect
inherits OLEObject
    dim Application as PowerPointApplication
    dim Name as string
    dim Parent as OLEObject
    dim Type as integer
    Sub ImportFromFile(FileName_Param as string)
    Sub Play()
End Class

Class PowerPointSoundFormat
inherits OLEObject
    dim SourceFullName as string
    dim Type as integer
    Function Export(FileName_Param as string) as integer
    Sub Import(FileName_Param as string)
    Sub Play()
End Class

Class PowerPointHeadersFooters
inherits OLEObject
    dim Application as PowerPointApplication
    dim DateAndTime as PowerPointHeaderFooter
    dim DisplayOnTitleSlide as integer
    dim Footer as PowerPointHeaderFooter
    dim Header as PowerPointHeaderFooter
    dim Parent as OLEObject
    dim SlideNumber as PowerPointHeaderFooter
    Sub Clear()
End Class

Class PowerPointShapes
inherits OLEObject
    dim Application as OLEObject
    dim Count as integer
    dim Creator as integer
    dim HasTitle as integer
    dim Parent as OLEObject
    dim Placeholders as PowerPointPlaceholders
    dim Title as PowerPointShape
    dim _NewEnum as OLEObject
    Function AddCallout(Type_Param as integer, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointShape
    Function AddComment(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointShape
    Function AddConnector(Type_Param as integer, BeginX_Param as single, BeginY_Param as single, EndX_Param as single, EndY_Param as single) as PowerPointShape
    Function AddCurve(SafeArrayOfPoints_Param as variant) as PowerPointShape
    Function AddLabel(Orientation_Param as integer, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointShape
    Function AddLine(BeginX_Param as single, BeginY_Param as single, EndX_Param as single, EndY_Param as single) as PowerPointShape
    Function AddMediaObject(FileName_Param as string, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointShape
    Function AddOLEObject(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single, ClassName_Param as string, FileName_Param as string, DisplayAsIcon_Param as integer, IconFileName_Param as string, IconIndex_Param as integer, IconLabel_Param as string, Link_Param as integer) as PowerPointShape
    Function AddPicture(FileName_Param as string, LinkToFile_Param as integer, SaveWithDocument_Param as integer, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointShape
    Function AddPlaceholder(Type_Param as integer, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointShape
    Function AddPolyline(SafeArrayOfPoints_Param as variant) as PowerPointShape
    Function AddShape(Type_Param as integer, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointShape
    Function AddTable(NumRows_Param as integer, NumColumns_Param as integer, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointShape
    Function AddTextbox(Orientation_Param as integer, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointShape
    Function AddTextEffect(PresetTextEffect_Param as integer, Text_Param as string, FontName_Param as string, FontSize_Param as single, FontBold_Param as integer, FontItalic_Param as integer, Left_Param as single, Top_Param as single) as PowerPointShape
    Function AddTitle() as PowerPointShape
    Function BuildFreeform(EditingType_Param as integer, X1_Param as single, Y1_Param as single) as PowerPointFreeformBuilder
    Function Item(index_Param as variant) as PowerPointShape
    Function Paste() as PowerPointShapeRange
    Function Range(index_Param as variant) as PowerPointShapeRange
    Sub SelectAll()
End Class

Class PowerPointPlaceholders
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(index_Param as integer) as PowerPointShape
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointPlaceholderFormat
inherits OLEObject
    dim Application as PowerPointApplication
    dim Parent as OLEObject
    dim Type as integer
End Class

Class PowerPointFreeformBuilder
inherits OLEObject
    dim Application as OLEObject
    dim Creator as integer
    dim Parent as OLEObject
    Sub AddNodes(SegmentType_Param as integer, EditingType_Param as integer, X1_Param as single, Y1_Param as single, X2_Param as single, Y2_Param as single, X3_Param as single, Y3_Param as single)
    Function ConvertToShape() as PowerPointShape
End Class

Class PowerPointShape
inherits OLEObject
    dim ActionSettings as PowerPointActionSettings
    dim Adjustments as PowerPointAdjustments
    dim AlternativeText as string
    dim AnimationSettings as PowerPointAnimationSettings
    dim Application as OLEObject
    dim AutoShapeType as integer
    dim BlackWhiteMode as integer
    dim Callout as PowerPointCalloutFormat
    dim ConnectionSiteCount as integer
    dim Connector as integer
    dim ConnectorFormat as PowerPointConnectorFormat
    dim Creator as integer
    dim Fill as PowerPointFillFormat
    dim GroupItems as PowerPointGroupShapes
    dim HasTable as integer
    dim HasTextFrame as integer
    dim Height as single
    dim HorizontalFlip as integer
    dim Left as single
    dim Line as PowerPointLineFormat
    dim LinkFormat as PowerPointLinkFormat
    dim LockAspectRatio as integer
    dim MediaType as integer
    dim Name as string
    dim Nodes as PowerPointShapeNodes
    dim OLEFormat as PowerPointOLEFormat
    dim Parent as OLEObject
    dim PictureFormat as PowerPointPictureFormat
    dim PlaceholderFormat as PowerPointPlaceholderFormat
    dim Rotation as single
    dim Script as OLEObject
    dim Shadow as PowerPointShadowFormat
    dim SoundFormat as PowerPointSoundFormat
    dim Table as PowerPointTable
    dim Tags as PowerPointTags
    dim TextEffect as PowerPointTextEffectFormat
    dim TextFrame as PowerPointTextFrame
    dim ThreeD as PowerPointThreeDFormat
    dim Top as single
    dim Type as integer
    dim VerticalFlip as integer
    dim Vertices as variant
    dim Visible as integer
    dim Width as single
    dim ZOrderPosition as integer
    Sub Apply()
    Sub Copy()
    Sub Cut()
    Sub Delete()
    Function Duplicate() as PowerPointShapeRange
    Sub Export(PathName_Param as string, Filter_Param as integer, ScaleWidth_Param as integer, ScaleHeight_Param as integer, ExportMode_Param as integer)
    Sub Flip(FlipCmd_Param as integer)
    Sub IncrementLeft(Increment_Param as single)
    Sub IncrementRotation(Increment_Param as single)
    Sub IncrementTop(Increment_Param as single)
    Sub PickUp()
    Sub RerouteConnections()
    Sub ScaleHeight(Factor_Param as single, RelativeToOriginalSize_Param as integer, fScale_Param as integer)
    Sub ScaleWidth(Factor_Param as single, RelativeToOriginalSize_Param as integer, fScale_Param as integer)
    Sub Select_(Replace_Param as integer)
    Sub SetShapesDefaultProperties()
    Function Ungroup() as PowerPointShapeRange
    Sub ZOrder(ZOrderCmd_Param as integer)
End Class

Class PowerPointShapeRange
inherits OLEObject
    dim ActionSettings as PowerPointActionSettings
    dim Adjustments as PowerPointAdjustments
    dim AlternativeText as string
    dim AnimationSettings as PowerPointAnimationSettings
    dim Application as OLEObject
    dim AutoShapeType as integer
    dim BlackWhiteMode as integer
    dim Callout as PowerPointCalloutFormat
    dim ConnectionSiteCount as integer
    dim Connector as integer
    dim ConnectorFormat as PowerPointConnectorFormat
    dim Count as integer
    dim Creator as integer
    dim Fill as PowerPointFillFormat
    dim GroupItems as PowerPointGroupShapes
    dim HasTable as integer
    dim HasTextFrame as integer
    dim Height as single
    dim HorizontalFlip as integer
    dim Left as single
    dim Line as PowerPointLineFormat
    dim LinkFormat as PowerPointLinkFormat
    dim LockAspectRatio as integer
    dim MediaType as integer
    dim Name as string
    dim Nodes as PowerPointShapeNodes
    dim OLEFormat as PowerPointOLEFormat
    dim Parent as OLEObject
    dim PictureFormat as PowerPointPictureFormat
    dim PlaceholderFormat as PowerPointPlaceholderFormat
    dim Rotation as single
    dim Script as OLEObject
    dim Shadow as PowerPointShadowFormat
    dim SoundFormat as PowerPointSoundFormat
    dim Table as PowerPointTable
    dim Tags as PowerPointTags
    dim TextEffect as PowerPointTextEffectFormat
    dim TextFrame as PowerPointTextFrame
    dim ThreeD as PowerPointThreeDFormat
    dim Top as single
    dim Type as integer
    dim VerticalFlip as integer
    dim Vertices as variant
    dim Visible as integer
    dim Width as single
    dim ZOrderPosition as integer
    dim _NewEnum as OLEObject
    Sub Align(AlignCmd_Param as integer, RelativeTo_Param as integer)
    Sub Apply()
    Sub Copy()
    Sub Cut()
    Sub Delete()
    Sub Distribute(DistributeCmd_Param as integer, RelativeTo_Param as integer)
    Function Duplicate() as PowerPointShapeRange
    Sub Export(PathName_Param as string, Filter_Param as integer, ScaleWidth_Param as integer, ScaleHeight_Param as integer, ExportMode_Param as integer)
    Sub Flip(FlipCmd_Param as integer)
    Sub GetPolygonalRepresentation(maxPointsInBuffer_Param as integer, pPoints_Param as single, byref numPointsInPolygon_Param as integer, byref IsOpen_Param as integer)
    Function Group() as PowerPointShape
    Sub IncrementLeft(Increment_Param as single)
    Sub IncrementRotation(Increment_Param as single)
    Sub IncrementTop(Increment_Param as single)
    Function Item(index_Param as variant) as PowerPointShape
    Sub PickUp()
    Function Regroup() as PowerPointShape
    Sub RerouteConnections()
    Sub ScaleHeight(Factor_Param as single, RelativeToOriginalSize_Param as integer, fScale_Param as integer)
    Sub ScaleWidth(Factor_Param as single, RelativeToOriginalSize_Param as integer, fScale_Param as integer)
    Sub Select_(Replace_Param as integer)
    Sub SetShapesDefaultProperties()
    Function Ungroup() as PowerPointShapeRange
    Sub ZOrder(ZOrderCmd_Param as integer)
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointGroupShapes
inherits OLEObject
    dim Application as OLEObject
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(index_Param as variant) as PowerPointShape
End Class

Class PowerPointAdjustments
inherits OLEObject
    dim Application as OLEObject
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    Function Item(index_Param as integer) as single
End Class

Class PowerPointPictureFormat
inherits OLEObject
    dim Application as OLEObject
    dim Brightness as single
    dim ColorType as integer
    dim Contrast as single
    dim Creator as integer
    dim CropBottom as single
    dim CropLeft as single
    dim CropRight as single
    dim CropTop as single
    dim Parent as OLEObject
    dim TransparencyColor as integer
    dim TransparentBackground as integer
    Sub IncrementBrightness(Increment_Param as single)
    Sub IncrementContrast(Increment_Param as single)
End Class

Class PowerPointFillFormat
inherits OLEObject
    dim Application as OLEObject
    dim BackColor as PowerPointColorFormat
    dim Creator as integer
    dim ForeColor as PowerPointColorFormat
    dim GradientColorType as integer
    dim GradientDegree as single
    dim GradientStyle as integer
    dim GradientVariant as integer
    dim Parent as OLEObject
    dim Pattern as integer
    dim PresetGradientType as integer
    dim PresetTexture as integer
    dim TextureName as string
    dim TextureType as integer
    dim Transparency as single
    dim Type as integer
    dim Visible as integer
    Sub Background()
    Sub OneColorGradient(Style_Param as integer, Variant_Param as integer, Degree_Param as single)
    Sub Patterned(Pattern_Param as integer)
    Sub PresetGradient(Style_Param as integer, Variant_Param as integer, PresetGradientType_Param as integer)
    Sub PresetTextured(PresetTexture_Param as integer)
    Sub Solid()
    Sub TwoColorGradient(Style_Param as integer, Variant_Param as integer)
    Sub UserPicture(PictureFile_Param as string)
    Sub UserTextured(TextureFile_Param as string)
End Class

Class PowerPointLineFormat
inherits OLEObject
    dim Application as OLEObject
    dim BackColor as PowerPointColorFormat
    dim BeginArrowheadLength as integer
    dim BeginArrowheadStyle as integer
    dim BeginArrowheadWidth as integer
    dim Creator as integer
    dim DashStyle as integer
    dim EndArrowheadLength as integer
    dim EndArrowheadStyle as integer
    dim EndArrowheadWidth as integer
    dim ForeColor as PowerPointColorFormat
    dim Parent as OLEObject
    dim Pattern as integer
    dim Style as integer
    dim Transparency as single
    dim Visible as integer
    dim Weight as single
End Class

Class PowerPointShadowFormat
inherits OLEObject
    dim Application as OLEObject
    dim Creator as integer
    dim ForeColor as PowerPointColorFormat
    dim Obscured as integer
    dim OffsetX as single
    dim OffsetY as single
    dim Parent as OLEObject
    dim Transparency as single
    dim Type as integer
    dim Visible as integer
    Sub IncrementOffsetX(Increment_Param as single)
    Sub IncrementOffsetY(Increment_Param as single)
End Class

Class PowerPointConnectorFormat
inherits OLEObject
    dim Application as OLEObject
    dim BeginConnected as integer
    dim BeginConnectedShape as PowerPointShape
    dim BeginConnectionSite as integer
    dim Creator as integer
    dim EndConnected as integer
    dim EndConnectedShape as PowerPointShape
    dim EndConnectionSite as integer
    dim Parent as OLEObject
    dim Type as integer
    Sub BeginConnect(ConnectedShape_Param as PowerPointShape, ConnectionSite_Param as integer)
    Sub BeginDisconnect()
    Sub EndConnect(ConnectedShape_Param as PowerPointShape, ConnectionSite_Param as integer)
    Sub EndDisconnect()
End Class

Class PowerPointTextEffectFormat
inherits OLEObject
    dim Alignment as integer
    dim Application as OLEObject
    dim Creator as integer
    dim FontBold as integer
    dim FontItalic as integer
    dim FontName as string
    dim FontSize as single
    dim KernedPairs as integer
    dim NormalizedHeight as integer
    dim Parent as OLEObject
    dim PresetShape as integer
    dim PresetTextEffect as integer
    dim RotatedChars as integer
    dim Text as string
    dim Tracking as single
    Sub ToggleVerticalText()
End Class

Class PowerPointThreeDFormat
inherits OLEObject
    dim Application as OLEObject
    dim Creator as integer
    dim Depth as single
    dim ExtrusionColor as PowerPointColorFormat
    dim ExtrusionColorType as integer
    dim Parent as OLEObject
    dim Perspective as integer
    dim PresetExtrusionDirection as integer
    dim PresetLightingDirection as integer
    dim PresetLightingSoftness as integer
    dim PresetMaterial as integer
    dim PresetThreeDFormat as integer
    dim RotationX as single
    dim RotationY as single
    dim Visible as integer
    Sub IncrementRotationX(Increment_Param as single)
    Sub IncrementRotationY(Increment_Param as single)
    Sub ResetRotation()
    Sub SetExtrusionDirection(PresetExtrusionDirection_Param as integer)
    Sub SetThreeDFormat(PresetThreeDFormat_Param as integer)
End Class

Class PowerPointTextFrame
inherits OLEObject
    dim Application as OLEObject
    dim AutoSize as integer
    dim Creator as integer
    dim HasText as integer
    dim HorizontalAnchor as integer
    dim MarginBottom as single
    dim MarginLeft as single
    dim MarginRight as single
    dim MarginTop as single
    dim Orientation as integer
    dim Parent as OLEObject
    dim Ruler as PowerPointRuler
    dim TextRange as PowerPointTextRange
    dim VerticalAnchor as integer
    dim WordWrap as integer
    Sub DeleteText()
End Class

Class PowerPointCalloutFormat
inherits OLEObject
    dim Accent as integer
    dim Angle as integer
    dim Application as OLEObject
    dim AutoAttach as integer
    dim AutoLength as integer
    dim Border as integer
    dim Creator as integer
    dim Drop as single
    dim DropType as integer
    dim Gap as single
    dim Length as single
    dim Parent as OLEObject
    dim Type as integer
    Sub AutomaticLength()
    Sub CustomDrop(Drop_Param as single)
    Sub CustomLength(Length_Param as single)
    Sub PresetDrop(DropType_Param as integer)
End Class

Class PowerPointShapeNodes
inherits OLEObject
    dim Application as OLEObject
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Sub Delete(index_Param as integer)
    Sub Insert(index_Param as integer, SegmentType_Param as integer, EditingType_Param as integer, X1_Param as single, Y1_Param as single, X2_Param as single, Y2_Param as single, X3_Param as single, Y3_Param as single)
    Function Item(index_Param as variant) as PowerPointShapeNode
    Sub SetEditingType(index_Param as integer, EditingType_Param as integer)
    Sub SetPosition(index_Param as integer, X1_Param as single, Y1_Param as single)
    Sub SetSegmentType(index_Param as integer, SegmentType_Param as integer)
End Class

Class PowerPointShapeNode
inherits OLEObject
    dim Application as OLEObject
    dim Creator as integer
    dim EditingType as integer
    dim Parent as OLEObject
    dim Points as variant
    dim SegmentType as integer
End Class

Class PowerPointOLEFormat
inherits OLEObject
    dim Application as PowerPointApplication
    dim FollowColors as integer
    dim Object_ as OLEObject
    dim ObjectVerbs as PowerPointObjectVerbs
    dim Parent as OLEObject
    dim ProgID as string
    Sub Activate()
    Sub DoVerb(index_Param as integer)
End Class

Class PowerPointLinkFormat
inherits OLEObject
    dim Application as PowerPointApplication
    dim AutoUpdate as integer
    dim Parent as OLEObject
    dim SourceFullName as string
    Sub Update()
End Class

Class PowerPointObjectVerbs
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(index_Param as integer) as string
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointAnimationSettings
inherits OLEObject
    dim AdvanceMode as integer
    dim AdvanceTime as single
    dim AfterEffect as integer
    dim Animate as integer
    dim AnimateBackground as integer
    dim AnimateTextInReverse as integer
    dim AnimationOrder as integer
    dim Application as PowerPointApplication
    dim ChartUnitEffect as integer
    dim DimColor as PowerPointColorFormat
    dim EntryEffect as integer
    dim Parent as OLEObject
    dim PlaySettings as PowerPointPlaySettings
    dim SoundEffect as PowerPointSoundEffect
    dim TextLevelEffect as integer
    dim TextUnitEffect as integer
End Class

Class PowerPointActionSettings
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(index_Param as integer) as PowerPointActionSetting
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointActionSetting
inherits OLEObject
    dim Action as integer
    dim ActionVerb as string
    dim AnimateAction as integer
    dim Application as PowerPointApplication
    dim Hyperlink as PowerPointHyperlink
    dim Parent as OLEObject
    dim Run as string
    dim ShowandReturn as integer
    dim SlideShowName as string
    dim SoundEffect as PowerPointSoundEffect
End Class

Class PowerPointPlaySettings
inherits OLEObject
    dim ActionVerb as string
    dim Application as PowerPointApplication
    dim HideWhileNotPlaying as integer
    dim LoopUntilStopped as integer
    dim Parent as OLEObject
    dim PauseAnimation as integer
    dim PlayOnEntry as integer
    dim RewindMovie as integer
    dim StopAfterSlides as integer
End Class

Class PowerPointTextRange
inherits OLEObject
    dim ActionSettings as PowerPointActionSettings
    dim Application as PowerPointApplication
    dim BoundHeight as single
    dim BoundLeft as single
    dim BoundTop as single
    dim BoundWidth as single
    dim Count as integer
    dim Font as PowerPointFont
    dim IndentLevel as integer
    dim LanguageID as integer
    dim Length as integer
    dim ParagraphFormat as PowerPointParagraphFormat
    dim Parent as OLEObject
    dim Start as integer
    dim Text as string
    dim _NewEnum as OLEObject
    Sub AddPeriods()
    Sub ChangeCase(Type_Param as integer)
    Function Characters(Start_Param as integer, Length_Param as integer) as PowerPointTextRange
    Sub Copy()
    Sub Cut()
    Sub Delete()
    Function Find(FindWhat_Param as string, After_Param as integer, MatchCase_Param as integer, WholeWords_Param as integer) as PowerPointTextRange
    Function InsertAfter(NewText_Param as string) as PowerPointTextRange
    Function InsertBefore(NewText_Param as string) as PowerPointTextRange
    Function InsertDateTime(DateTimeFormat_Param as integer, InsertAsField_Param as integer) as PowerPointTextRange
    Function InsertSlideNumber() as PowerPointTextRange
    Function InsertSymbol(FontName_Param as string, CharNumber_Param as integer, Unicode_Param as integer) as PowerPointTextRange
    Function Lines(Start_Param as integer, Length_Param as integer) as PowerPointTextRange
    Sub LtrRun()
    Function Paragraphs(Start_Param as integer, Length_Param as integer) as PowerPointTextRange
    Function Paste() as PowerPointTextRange
    Sub RemovePeriods()
    Function Replace(FindWhat_Param as string, ReplaceWhat_Param as string, After_Param as integer, MatchCase_Param as integer, WholeWords_Param as integer) as PowerPointTextRange
    Sub RotatedBounds(byref X1_Param as single, byref Y1_Param as single, byref X2_Param as single, byref Y2_Param as single, byref X3_Param as single, byref Y3_Param as single, byref x4_Param as single, byref y4_Param as single)
    Sub RtlRun()
    Function Runs(Start_Param as integer, Length_Param as integer) as PowerPointTextRange
    Sub Select_()
    Function Sentences(Start_Param as integer, Length_Param as integer) as PowerPointTextRange
    Function TrimText() as PowerPointTextRange
    Function Words(Start_Param as integer, Length_Param as integer) as PowerPointTextRange
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointRuler
inherits OLEObject
    dim Application as PowerPointApplication
    dim Levels as PowerPointRulerLevels
    dim Parent as OLEObject
    dim TabStops as PowerPointTabStops
End Class

Class PowerPointRulerLevels
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(index_Param as integer) as PowerPointRulerLevel
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointRulerLevel
inherits OLEObject
    dim Application as PowerPointApplication
    dim FirstMargin as single
    dim LeftMargin as single
    dim Parent as OLEObject
End Class

Class PowerPointTabStops
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim DefaultSpacing as single
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Type_Param as integer, Position_Param as single) as PowerPointTabStop
    Function Item(index_Param as integer) as PowerPointTabStop
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointTabStop
inherits OLEObject
    dim Application as PowerPointApplication
    dim Parent as OLEObject
    dim Position as single
    dim Type as integer
    Sub Clear()
End Class

Class PowerPointFont
inherits OLEObject
    dim Application as PowerPointApplication
    dim AutoRotateNumbers as integer
    dim BaselineOffset as single
    dim Bold as integer
    dim Color_ as PowerPointColorFormat
    dim Embeddable as integer
    dim Embedded as integer
    dim Emboss as integer
    dim Italic as integer
    dim Name as string
    dim NameAscii as string
    dim NameComplexScript as string
    dim NameFarEast as string
    dim NameOther as string
    dim Parent as OLEObject
    dim Shadow as integer
    dim Size as single
    dim Subscript as integer
    dim Superscript as integer
    dim Underline as integer
End Class

Class PowerPointParagraphFormat
inherits OLEObject
    dim Alignment as integer
    dim Application as PowerPointApplication
    dim BaseLineAlignment as integer
    dim Bullet as PowerPointBulletFormat
    dim FarEastLineBreakControl as integer
    dim HangingPunctuation as integer
    dim LineRuleAfter as integer
    dim LineRuleBefore as integer
    dim LineRuleWithin as integer
    dim Parent as OLEObject
    dim SpaceAfter as single
    dim SpaceBefore as single
    dim SpaceWithin as single
    dim TextDirection as integer
    dim WordWrap as integer
End Class

Class PowerPointBulletFormat
inherits OLEObject
    dim Application as PowerPointApplication
    dim Character as integer
    dim Font as PowerPointFont
    dim Number as integer
    dim Parent as OLEObject
    dim RelativeSize as single
    dim StartValue as integer
    dim Style as integer
    dim Type as integer
    dim UseTextColor as integer
    dim UseTextFont as integer
    dim Visible as integer
    Sub Picture(Picture_Param as string)
End Class

Class PowerPointTextStyles
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Type_Param as integer) as PowerPointTextStyle
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointTextStyle
inherits OLEObject
    dim Application as PowerPointApplication
    dim Levels as PowerPointTextStyleLevels
    dim Parent as OLEObject
    dim Ruler as PowerPointRuler
    dim TextFrame as PowerPointTextFrame
End Class

Class PowerPointTextStyleLevels
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Level_Param as integer) as PowerPointTextStyleLevel
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointTextStyleLevel
inherits OLEObject
    dim Application as PowerPointApplication
    dim Font as PowerPointFont
    dim ParagraphFormat as PowerPointParagraphFormat
    dim Parent as OLEObject
End Class

Class PowerPointHeaderFooter
inherits OLEObject
    dim Application as PowerPointApplication
    dim Format as integer
    dim Parent as OLEObject
    dim Text as string
    dim UseFormat as integer
    dim Visible as integer
End Class

Class PowerPointPPDialogs
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Name as string
    dim Tags as PowerPointTags
    dim _NewEnum as OLEObject
    Function AddAlert() as PowerPointPPAlert
    Function AddDialog(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single, Modal_Param as integer, ParentWindow_Param as OLEObject, Position_Param as integer, DisplayHelp_Param as integer) as PowerPointPPDialog
    Function AddTabDialog(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single, Modal_Param as integer, ParentWindow_Param as OLEObject, Position_Param as integer, DisplayHelp_Param as integer) as PowerPointPPDialog
    Function Item(index_Param as variant) as PowerPointPPDialog
    Function LoadDialog(resourceDLL_Param as string, nResID_Param as integer, bModal_Param as integer, ParentWindow_Param as OLEObject, Position_Param as integer) as PowerPointPPDialog
    Function RunCharacterAlert(Text_Param as string, Type_Param as integer, icon_Param as integer, ParentWindow_Param as OLEObject) as integer
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointPPAlert
inherits OLEObject
    dim Application as PowerPointApplication
    dim OnButton as string
    dim Parent as OLEObject
    dim PressedButton as integer
    Sub Run(Title_Param as string, Type_Param as integer, Text_Param as string, leftBtn_Param as string, middleBtn_Param as string, rightBtn_Param as string)
End Class

Class PowerPointPPDialog
inherits OLEObject
    dim Application as PowerPointApplication
    dim Caption as string
    dim ClientHeight as single
    dim ClientLeft as single
    dim ClientTop as single
    dim ClientWidth as single
    dim Controls as PowerPointPPControls
    dim DelayTime as integer
    dim Height as single
    dim HelpId as integer
    dim HideOnIdle as integer
    dim HWND as integer
    dim Left as single
    dim Mode as integer
    dim Name as string
    dim OnActivate as string
    dim OnIdle as string
    dim OnKeyPressed as string
    dim OnMouseDown as string
    dim OnMouseUp as string
    dim OnTerminate as string
    dim OnTimer as string
    dim Parent as OLEObject
    dim resourceDLL as string
    dim Sheets as PowerPointPPTabSheets
    dim Style as integer
    dim TabControl as PowerPointPPTabControl
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
    Function SaveDialog(FileName_Param as string) as integer
    Sub Terminate()
End Class

Class PowerPointPPTabSheet
inherits OLEObject
    dim Application as PowerPointApplication
    dim ClientHeight as single
    dim ClientLeft as single
    dim ClientTop as single
    dim ClientWidth as single
    dim Controls as PowerPointPPControls
    dim Name as string
    dim OnActivate as string
    dim Parent as OLEObject
    dim Tags as PowerPointTags
    Sub Select_()
End Class

Class PowerPointPPControls
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Visible as integer
    dim _NewEnum as OLEObject
    Function AddBitmap(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPBitmap
    Function AddBitmapButton(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPBitmapButton
    Function AddCheckBox(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPCheckBox
    Function AddDropDown(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPDropDown
    Function AddDropDownEdit(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPDropDownEdit
    Function AddEditText(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single, VerticalScrollBar_Param as variant) as PowerPointPPEditText
    Function AddFrame(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPFrame
    Function AddGroupBox(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPGroupBox
    Function AddIcon(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPIcon
    Function AddListBox(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPListBox
    Function AddMiniature(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPSlideMiniature
    Function AddPushButton(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPPushButton
    Function AddRadioCluster(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPRadioCluster
    Function AddScrollBar(Style_Param as integer, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPScrollBar
    Function AddSpinner(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPSpinner
    Function AddStaticText(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPStaticText
    Function AddToggleButton(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPToggleButton
    Function Item(index_Param as variant) as PowerPointPPControl
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointPPTabSheets
inherits OLEObject
    dim ActiveSheet as PowerPointPPTabSheet
    dim Count as integer
    dim Name as string
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string) as PowerPointPPTabSheet
    Function Item(index_Param as variant) as PowerPointPPTabSheet
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointPPControl
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
End Class

Class PowerPointPPPushButton
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim IsDefault as integer
    dim IsEscape as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnKillFocus as string
    dim OnPressed as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
    Sub Click()
End Class

Class PowerPointPPToggleButton
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnClick as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim ResourceID as integer
    dim State as integer
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
    Sub Click()
End Class

Class PowerPointPPBitmapButton
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim IsDefault as integer
    dim IsEscape as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnKillFocus as string
    dim OnPressed as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim ResourceID as integer
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
    Sub Click()
End Class

Class PowerPointPPListBox
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim FocusItem as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim IsAbbreviated as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnDoubleClick as string
    dim OnKillFocus as string
    dim OnSelectionChange as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim SelectionStyle as integer
    dim Strings as PowerPointPPStrings
    dim Tags as PowerPointTags
    dim Top as single
    dim TopItem as integer
    dim Visible as integer
    dim Width as single
    Sub Abbreviate(Style_Param as integer)
    Function IsSelected(index_Param as integer) as integer
    Sub SetTabStops(safeArrayTabStops_Param as variant)
End Class

Class PowerPointPPStrings
inherits OLEObject
    dim Count as integer
    dim _NewEnum as OLEObject
    Function Add(String_Param as string) as string
    Sub Delete(index_Param as integer)
    Sub Insert(String_Param as string, Position_Param as integer)
    Function Item(index_Param as integer) as string
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointPPCheckBox
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnClick as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim State as integer
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
    Sub Click()
End Class

Class PowerPointPPRadioCluster
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnClick as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim Selected as PowerPointPPRadioButton
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
    Function Add(Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single) as PowerPointPPRadioButton
    Function Item(index_Param as variant) as PowerPointPPRadioButton
End Class

Class PowerPointPPStaticText
inherits OLEObject
    dim Application as PowerPointApplication
    dim BackgroundColor as integer
    dim Enable as integer
    dim Focus as integer
    dim ForegroundColor as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim Tags as PowerPointTags
    dim Top as single
    dim UseBackgroundColor as integer
    dim UseForegroundColor as integer
    dim Visible as integer
    dim Width as single
End Class

Class PowerPointPPEditText
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim MaxLength as integer
    dim MultiLine as integer
    dim Name as string
    dim OnAChange as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim ReadOnly as integer
    dim Tags as PowerPointTags
    dim Text as string
    dim Top as single
    dim VerticalScrollBar as integer
    dim Visible as integer
    dim Width as single
    dim WordWrap as integer
End Class

Class PowerPointPPIcon
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim ResourceID as integer
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
End Class

Class PowerPointPPBitmap
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnClick as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim ResourceID as integer
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
End Class

Class PowerPointPPSpinner
inherits OLEObject
    dim Application as PowerPointApplication
    dim CurrentValue as integer
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Increment as integer
    dim Label as string
    dim Left as single
    dim Maximum as integer
    dim Minimum as integer
    dim Name as string
    dim OnAChange as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim PageChange as integer
    dim Parent as OLEObject
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
End Class

Class PowerPointPPScrollBar
inherits OLEObject
    dim Application as PowerPointApplication
    dim CurrentValue as integer
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Increment as integer
    dim Label as string
    dim Left as single
    dim Maximum as integer
    dim Minimum as integer
    dim Name as string
    dim OnKillFocus as string
    dim OnScroll as string
    dim OnSetFocus as string
    dim PageChange as integer
    dim Parent as OLEObject
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
End Class

Class PowerPointPPGroupBox
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
End Class

Class PowerPointPPFrame
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
End Class

Class PowerPointPPTabControl
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
End Class

Class PowerPointPPDropDown
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim FocusItem as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnKillFocus as string
    dim OnSelectionChange as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim Strings as PowerPointPPStrings
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
End Class

Class PowerPointPPDropDownEdit
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim FocusItem as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnEdit as string
    dim OnKillFocus as string
    dim OnSelectionChange as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim Strings as PowerPointPPStrings
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
End Class

Class PowerPointPPSlideMiniature
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnClick as string
    dim OnDoubleClick as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim Selected as integer
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
    Sub SetImage(Slide_Param as PowerPointSlide)
End Class

Class PowerPointPPRadioButton
inherits OLEObject
    dim Application as PowerPointApplication
    dim Enable as integer
    dim Focus as integer
    dim Height as single
    dim HelpId as integer
    dim HWND as integer
    dim Label as string
    dim Left as single
    dim Name as string
    dim OnClick as string
    dim OnDoubleClick as string
    dim OnKillFocus as string
    dim OnSetFocus as string
    dim Parent as OLEObject
    dim State as integer
    dim Tags as PowerPointTags
    dim Top as single
    dim Visible as integer
    dim Width as single
    Sub Click()
    Sub DoubleClick()
End Class

Class PowerPointTags
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Sub Add(Name_Param as string, Value_Param as string)
    Sub AddBinary(Name_Param as string, FilePath_Param as string)
    Function BinaryValue(Name_Param as string) as integer
    Sub Delete(Name_Param as string)
    Function Item(Name_Param as string) as string
    Function Name(index_Param as integer) as string
    Function Value(index_Param as integer) as string
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointFileDialogFileList
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function DisplayName(index_Param as integer) as string
    Function Item(index_Param as integer) as string
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointFileDialogExtension
inherits OLEObject
    dim Application as PowerPointApplication
    dim Description as string
    dim Extensions as string
    dim Parent as OLEObject
End Class

Class PowerPointFileDialogExtensionList
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Extension_Param as string, Description_Param as string) as PowerPointFileDialogExtension
    Function Item(index_Param as integer) as PowerPointFileDialogExtension
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointFileDialog
inherits OLEObject
    dim ActionButtonName as string
    dim Application as PowerPointApplication
    dim DefaultDirectoryRegKey as string
    dim DialogTitle as string
    dim DirectoriesOnly as integer
    dim Extensions as PowerPointFileDialogExtensionList
    dim Files as PowerPointFileDialogFileList
    dim InitialView as integer
    dim IsMultiSelect as integer
    dim IsPrintEnabled as integer
    dim IsReadOnlyEnabled as integer
    dim OnAction as string
    dim Parent as OLEObject
    dim UseODMADlgs as integer
    Sub Launch(pUnk_Param as OLEObject)
End Class

Class PowerPointMouseTracker
inherits OLEObject
    Function EndTrack(X_Param as single, Y_Param as single) as integer
    Function OnTrack(X_Param as single, Y_Param as single) as integer
End Class

Class PowerPointMouseDownHandler
inherits OLEObject
    Function OnMouseDown(activeWin_Param as OLEObject) as integer
End Class

Class PowerPointOCXExtender
inherits OLEObject
    dim AltHTML as string
    dim Height as single
    dim Left as single
    dim Name as string
    dim Top as single
    dim Visible as boolean
    dim Width as single
    dim ZOrderPosition as integer
End Class

Class PowerPointOLEControl
inherits OLEObject
    dim AltHTML as string
    dim Height as single
    dim Left as single
    dim Name as string
    dim Top as single
    dim Visible as boolean
    dim Width as single
    dim ZOrderPosition as integer
End Class

Class PowerPointTable
inherits OLEObject
    dim Application as PowerPointApplication
    dim Columns as PowerPointColumns
    dim Parent as OLEObject
    dim Rows as PowerPointRows
    dim TableDirection as integer
    Function Cell(Row_Param as integer, Column_Param as integer) as PowerPointCell
    Sub MergeBorders()
End Class

Class PowerPointColumns
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(BeforeColumn_Param as integer) as PowerPointColumn
    Function Item(index_Param as integer) as PowerPointColumn
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointColumn
inherits OLEObject
    dim Application as PowerPointApplication
    dim Cells as PowerPointCellRange
    dim Parent as OLEObject
    dim Width as single
    Sub Delete()
    Sub Select_()
End Class

Class PowerPointRows
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(BeforeRow_Param as integer) as PowerPointRow
    Function Item(index_Param as integer) as PowerPointRow
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointRow
inherits OLEObject
    dim Application as PowerPointApplication
    dim Cells as PowerPointCellRange
    dim Height as single
    dim Parent as OLEObject
    Sub Delete()
    Sub Select_()
End Class

Class PowerPointCellRange
inherits OLEObject
    dim Application as PowerPointApplication
    dim Borders as PowerPointBorders
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(index_Param as integer) as PowerPointCell
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointCell
inherits OLEObject
    dim Application as PowerPointApplication
    dim Borders as PowerPointBorders
    dim Parent as OLEObject
    dim Selected as boolean
    dim Shape as PowerPointShape
    Sub Merge(MergeTo_Param as PowerPointCell)
    Sub Select_()
    Sub Split(NumRows_Param as integer, NumColumns_Param as integer)
End Class

Class PowerPointBorders
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(BorderType_Param as integer) as PowerPointLineFormat
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointPanes
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(index_Param as integer) as PowerPointPane
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointPane
inherits OLEObject
    dim Active as integer
    dim Application as PowerPointApplication
    dim Parent as OLEObject
    dim ViewType as integer
    Sub Activate()
End Class

Class PowerPointDefaultWebOptions
inherits OLEObject
    dim AllowPNG as integer
    dim AlwaysSaveInDefaultEncoding as integer
    dim CheckIfOfficeIsHTMLEditor as integer
    dim Encoding as integer
    dim FolderSuffix as string
    dim Fonts as OLEObject
    dim FrameColors as integer
    dim IncludeNavigation as integer
    dim OrganizeInFolder as integer
    dim RelyOnVML as integer
    dim ResizeGraphics as integer
    dim ScreenSize as integer
    dim ShowSlideAnimation as integer
    dim UpdateLinksOnSave as integer
    dim UseLongFileNames as integer
End Class

Class PowerPointWebOptions
inherits OLEObject
    dim AllowPNG as integer
    dim Encoding as integer
    dim FolderSuffix as string
    dim FrameColors as integer
    dim IncludeNavigation as integer
    dim OrganizeInFolder as integer
    dim RelyOnVML as integer
    dim ResizeGraphics as integer
    dim ScreenSize as integer
    dim ShowSlideAnimation as integer
    dim UseLongFileNames as integer
    Sub UseDefaultFolderSuffix()
End Class

Class PowerPointPublishObjects
inherits OLEObject
    dim Application as PowerPointApplication
    dim Count as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(index_Param as integer) as PowerPointPublishObject
    Function _Index(index_Param as integer) as variant
End Class

Class PowerPointPublishObject
inherits OLEObject
    dim Application as PowerPointApplication
    dim FileName as string
    dim HTMLVersion as integer
    dim Parent as OLEObject
    dim RangeEnd as integer
    dim RangeStart as integer
    dim SlideShowName as string
    dim SourceType as integer
    dim SpeakerNotes as integer
    Sub Publish()
End Class

Class PowerPointMarker
inherits OLEObject
    dim MarkerType as integer
    dim Time as integer
End Class